# Wed May 11 20:57:38 2022 edit
# 字符编码：UTF-8
# R 版本：4.2.0 alpha x64 for window 11
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐🍈
#.rs.restartR()
require(leafletCN)
require(leaflet)
require(mapview)

rm(list = ls());gc()

dt <- read.csv('data_all/2022年5月11日/ok_all_dt.csv')[,-1]
names(dt)

demomap('上海') |>
  amap() |>
  addCircles(
    data = dt,
    lat = ~latitude,
    lng = ~longitude,
    color = 'green'
,    popup = ~name
  )

